home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aai.d64
/
bit'funtions.lst
< prev
next >
Wrap
File List
|
2007-02-28
|
477b
|
26 lines
9000 //
9010 FUNC BIT'ML(N,M,O)
9020 POKE 2045,169
9030 POKE 2046,N
9040 POKE 2047,O
9050 POKE 2048,M
9060 POKE 2049,141
9070 POKE 2050,232
9080 POKE 2051,7
9090 POKE 2052,96
9100 SYS 2045
9110 RETURN PEEK(2024)
9120 ENDFUNC BIT'ML
9130 //
9140 FUNC BITAND(N,M)
9150 RETURN BIT'ML(N,M,41)
9160 ENDFUNC BITAND
9170 //
9180 FUNC BITOR(N,M)
9190 RETURN BIT'ML(N,M,9)
9200 ENDFUNC BITOR
9210 //
9220 FUNC BITXOR(N,M)
9230 RETURN BIT'ML(N,M,73)
9240 ENDFUNC BITXOR